SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO


CREATE PROC [dbo].[SP_TTPROC_INTE_I91]
/*------------------------------------------------------------------*/
/*---- 	Empresa           : OFISIS S.A.              		----*/
/*---- 	Cliente           : OFISIS              		----*/
/*---- 	Sistema           : INTERFASE               		----*/
/*---- 	Modulo            :                         		----*/
/*---- 	Programa          : Unificaci¢n Procesos de Interfase   ----*/
/*---- 	Script            : TTPROC_INTE                         ----*/
/*---- 	Nombre SP         : SP_TTPROC_INTE_I91	  		----*/
/*---- 	Desarrollado por  : Ernesto G¢mez Torres       		----*/
/*---- 	Fecha Creaci¢n    : 15/10/2003               		----*/
/*---- 	Base de Datos     : Microsoft Sql Server     		----*/
/*---- 	Version           : 2000                     		----*/
/*---- 	Invoca a SP       :                          		----*/
/*------------------------------------------------------------------*/
/*------------------------------------------------------------------*/
/*---- 	Modificado 1 por     :                                  ----*/
/*---- 	Fecha Modificacion   :                          	----*/
/*---- 	Detalle Modificacion : 					----*/
/*----                                                          ----*/
/*------------------------------------------------------------------*/
/*------------------------------------------------------------------*/
/*----- Comentarios  :	 				        ----*/
/*-----							        ----*/
/*-----							        ----*/
/*------------------------------------------------------------------*/
/*------------------------------------------------------------------*/
/*-- Drop Proc SP_TTPROC_INTE_I91		 	        ----*/
/*-- Grant All On SP_TTPROC_INTE_I91 To PUBLIC          	----*/
/*-- SP_TTPROC_INTE_I91                                         ----*/
/*------------------------------------------------------------------*/

@ISCO_EMPR        TD_VC_002,
@ISCO_USUA_MODI   TD_VC_008,
@IDFE_USUA_MODI   TD_DT_001_SIST,
@INNU_PROC_UNIF   TD_IN_001,
@ISNO_RESP        TD_VC_100,
@IDFE_INIC_0001   TD_DT_001,
@IDFE_FINA_0001   TD_DT_001


As 
Declare
/*----- Variables del Cursor-----*/
@CNNU_PROC        TD_IN_001,
@CSCO_SIST        TD_VC_010,
@CSNO_RESP        TD_VC_100

Begin Tran SP_TTPROC_INTE_I91

    Declare CU_TTPROC_INTE_I91_1 Cursor For   
    Select  NU_PROC, CO_SIST, NO_RESP
    From     #TWPROC_UNIF
    Where   CO_EMPR = @ISCO_EMPR

    Open   CU_TTPROC_INTE_I91_1
    Fetch  CU_TTPROC_INTE_I91_1 Into @CNNU_PROC, @CSCO_SIST, @CSNO_RESP

    While @@Fetch_Status = 0  
    Begin
        -- Proceso de Reversi¢n
        Exec SP_TTPROC_INTE_U99 @ISCO_EMPR, @CSCO_SIST, @CNNU_PROC
        If @@ERROR <> 0  
        Begin   
          Rollback Transaction SP_TTPROC_INTE_I91
          Return  
        End  

      Fetch  CU_TTPROC_INTE_I91_1 Into @CNNU_PROC, @CSCO_SIST, @CSNO_RESP
    End

    Close CU_TTPROC_INTE_I91_1
    Deallocate CU_TTPROC_INTE_I91_1

    Begin

       Update TMDOCU_PROV
       Set   TMDOCU_PROV.NU_PROC      = 0,
	     TMDOCU_PROV.ST_CONT      = 'N',
	     TMDOCU_PROV.CO_USUA_MODI = @ISCO_USUA_MODI,
             TMDOCU_PROV.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TMDOCU_PROV.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TMDOCU_PROV.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TMDOCU_PROV.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TCMOVI_BANC
       Set   TCMOVI_BANC.NU_PROC      = 0,
	     TCMOVI_BANC.ST_CONT      = 'N',
	     TCMOVI_BANC.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TCMOVI_BANC.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TCMOVI_BANC.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TCMOVI_BANC.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TCMOVI_BANC.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TCMOVI_CAJA
       Set   TCMOVI_CAJA.NU_PROC 	= 0,
	     TCMOVI_CAJA.ST_CONT 	= 'N',
	     TCMOVI_CAJA.CO_USUA_MODI 	= @ISCO_USUA_MODI,
	     TCMOVI_CAJA.FE_USUA_MODI 	= @IDFE_USUA_MODI
       Where TCMOVI_CAJA.CO_EMPR        = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TCMOVI_CAJA.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TCMOVI_CAJA.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TTCANP_ANUL
       Set   TTCANP_ANUL.NU_PROC        = 0,
	     TTCANP_ANUL.ST_CONT        = 'N',
	     TTCANP_ANUL.CO_USUA_MODI 	= @ISCO_USUA_MODI,
	     TTCANP_ANUL.FE_USUA_MODI 	= @IDFE_USUA_MODI
       Where TTCANP_ANUL.CO_EMPR        =  @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTCANP_ANUL.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TTCANP_ANUL.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TCCANJ_PROV
       Set   TCCANJ_PROV.NU_PROC 	    = 0,
	     TCCANJ_PROV.ST_CONT 	    = 'N',
	     TCCANJ_PROV.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TCCANJ_PROV.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TCCANJ_PROV.CO_EMPR     = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TCCANJ_PROV.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TCCANJ_PROV.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TCREND_GAST
       Set   TCREND_GAST.NU_PROC      = 0,
	     TCREND_GAST.ST_CONT      = 'N',
	     TCREND_GAST.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TCREND_GAST.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TCREND_GAST.CO_EMPR     = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TCREND_GAST.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TCREND_GAST.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TTDOCP_ANUL
       Set   TTDOCP_ANUL.NU_PROC      = 0,
	     TTDOCP_ANUL.ST_CONT      = 'N',
	     TTDOCP_ANUL.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TTDOCP_ANUL.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TTDOCP_ANUL.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTDOCP_ANUL.CO_EMPR
           And      #TWPROC_UNIF.NU_PROC = TTDOCP_ANUL.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TTBANC_ANUL
       Set   TTBANC_ANUL.NU_PROC      = 0,
	     TTBANC_ANUL.ST_CONT      = 'N',
	     TTBANC_ANUL.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TTBANC_ANUL.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TTBANC_ANUL.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTBANC_ANUL.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TTBANC_ANUL.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TTCAJA_ANUL
       Set   TTCAJA_ANUL.NU_PROC      = 0,
	     TTCAJA_ANUL.ST_CONT      = 'N',
	     TTCAJA_ANUL.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TTCAJA_ANUL.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TTCAJA_ANUL.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTCAJA_ANUL.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TTCAJA_ANUL.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TDMODI_DOCU
       Set   TDMODI_DOCU.ST_CONT = 'N',  
             TDMODI_DOCU.NU_PROC = 0,
	     TDMODI_DOCU.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TDMODI_DOCU.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TDMODI_DOCU.CO_EMPR =  @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TDMODI_DOCU.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TDMODI_DOCU.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TCCANJ_CLIE
       Set   TCCANJ_CLIE.NU_PROC      = 0,
	     TCCANJ_CLIE.ST_CONT      = 'N',
	     TCCANJ_CLIE.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TCCANJ_CLIE.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TCCANJ_CLIE.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TCCANJ_CLIE.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TCCANJ_CLIE.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TTCANC_ANUL
       Set   TTCANC_ANUL.NU_PROC      = 0,
	     TTCANC_ANUL.ST_CONT      = 'N',
	     TTCANC_ANUL.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TTCANC_ANUL.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TTCANC_ANUL.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTCANC_ANUL.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TTCANC_ANUL.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TCAMAR_NCPR
       Set   TCAMAR_NCPR.NU_PROC      = 0,
	     TCAMAR_NCPR.ST_CONT      = 'N',
	     TCAMAR_NCPR.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TCAMAR_NCPR.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TCAMAR_NCPR.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TCAMAR_NCPR.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TCAMAR_NCPR.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TCREND_ANUL
       Set   TCREND_ANUL.NU_PROC      = 0,
	     TCREND_ANUL.ST_CONT      = 'N',
	     TCREND_ANUL.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TCREND_ANUL.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TCREND_ANUL.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TCREND_ANUL.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TCREND_ANUL.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TCAMAR_NCCL
       Set   TCAMAR_NCCL.NU_PROC      = 0,
	     TCAMAR_NCCL.ST_CONT      = 'N',
	     TCAMAR_NCCL.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TCAMAR_NCCL.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TCAMAR_NCCL.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TCAMAR_NCCL.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TCAMAR_NCCL.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TTAMAR_NCCA
       Set   TTAMAR_NCCA.NU_PROC      = 0,
	     TTAMAR_NCCA.ST_CONT      = 'N',
	     TTAMAR_NCCA.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TTAMAR_NCCA.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TTAMAR_NCCA.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTAMAR_NCCA.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TTAMAR_NCCA.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TCRENO_PROV
       Set   TCRENO_PROV.NU_PROC      = 0,
	     TCRENO_PROV.ST_CONT      = 'N',
	     TCRENO_PROV.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TCRENO_PROV.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TCRENO_PROV.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TCRENO_PROV.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TCRENO_PROV.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  


       Update TTRENP_ANUL
       Set   TTRENP_ANUL.NU_PROC      = 0,
	     TTRENP_ANUL.ST_CONT      = 'N',
	     TTRENP_ANUL.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TTRENP_ANUL.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TTRENP_ANUL.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTRENP_ANUL.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TTRENP_ANUL.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  
 
       Update TCRENO_CLIE
       Set   TCRENO_CLIE.NU_PROC      = 0,
	     TCRENO_CLIE.ST_CONT      = 'N',
	     TCRENO_CLIE.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TCRENO_CLIE.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TCRENO_CLIE.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TCRENO_CLIE.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TCRENO_CLIE.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TTRENC_ANUL
       Set   TTRENC_ANUL.NU_PROC      = 0,
	     TTRENC_ANUL.ST_CONT      = 'N',
	     TTRENC_ANUL.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TTRENC_ANUL.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TTRENC_ANUL.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTRENC_ANUL.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TTRENC_ANUL.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TCAMAR_OCPR
       Set   TCAMAR_OCPR.NU_PROC      = 0,
	     TCAMAR_OCPR.ST_CONT      = 'N',
	     TCAMAR_OCPR.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TCAMAR_OCPR.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TCAMAR_OCPR.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TCAMAR_OCPR.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TCAMAR_OCPR.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TTAMAR_OPAN
       Set   TTAMAR_OPAN.NU_PROC      = 0,
	     TTAMAR_OPAN.ST_CONT      = 'N',
	     TTAMAR_OPAN.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TTAMAR_OPAN.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TTAMAR_OPAN.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTAMAR_OPAN.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TTAMAR_OPAN.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TMDOCU_CLIE
       Set   TMDOCU_CLIE.NU_PROC      = 0,
	     TMDOCU_CLIE.ST_CONT      = 'N',
	     TMDOCU_CLIE.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TMDOCU_CLIE.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TMDOCU_CLIE.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TMDOCU_CLIE.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TMDOCU_CLIE.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TTDOCC_ANUL
       Set   TTDOCC_ANUL.NU_PROC      = 0,
	     TTDOCC_ANUL.ST_CONT      = 'N',
	     TTDOCC_ANUL.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TTDOCC_ANUL.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TTDOCC_ANUL.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTDOCC_ANUL.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TTDOCC_ANUL.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TDAMAR_ANTC
       Set   TDAMAR_ANTC.NU_PROC      = 0,
	     TDAMAR_ANTC.ST_CONT      = 'N',
	     TDAMAR_ANTC.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TDAMAR_ANTC.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TDAMAR_ANTC.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TDAMAR_ANTC.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TDAMAR_ANTC.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TTAMAR_ANTA
       Set   TTAMAR_ANTA.NU_PROC      = 0,
	     TTAMAR_ANTA.ST_CONT      = 'N',
	     TTAMAR_ANTA.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TTAMAR_ANTA.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TTAMAR_ANTA.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTAMAR_ANTA.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TTAMAR_ANTA.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Update TTAMAR_NCPA
       Set   TTAMAR_NCPA.NU_PROC      = 0,
	     TTAMAR_NCPA.ST_CONT      = 'N',
	     TTAMAR_NCPA.CO_USUA_MODI = @ISCO_USUA_MODI,
	     TTAMAR_NCPA.FE_USUA_MODI = @IDFE_USUA_MODI
       Where TTAMAR_NCPA.CO_EMPR      = @ISCO_EMPR
       And   Exists(Select   #TWPROC_UNIF.NU_PROC
                            From     #TWPROC_UNIF
                            Where    #TWPROC_UNIF.CO_EMPR = @ISCO_EMPR 
                            And      #TWPROC_UNIF.CO_EMPR = TTAMAR_NCPA.CO_EMPR
                            And      #TWPROC_UNIF.NU_PROC = TTAMAR_NCPA.NU_PROC)
       If @@ERROR <> 0  
       Begin   
         Rollback Transaction SP_TTPROC_INTE_I91
         Return  
       End  

       Declare CU_TTPROC_INTE_I91_1 Cursor For   
       Select  NU_PROC, CO_SIST, NO_RESP
       From     #TWPROC_UNIF
       Where   CO_EMPR = @ISCO_EMPR

       Open   CU_TTPROC_INTE_I91_1
       Fetch  CU_TTPROC_INTE_I91_1 Into @CNNU_PROC, @CSCO_SIST, @CSNO_RESP

       While @@Fetch_Status = 0  
       Begin

          Update  TTPROC_INTE
          Set 	  NU_PROC_UNIF 	=  @INNU_PROC_UNIF,
                  CO_USUA_MODI 	=  @ISCO_USUA_MODI,
	          FE_USUA_MODI 	=  @IDFE_USUA_MODI
          Where   CO_EMPR	=  @ISCO_EMPR
          And     NU_PROC    	=  @CNNU_PROC

          If @@ERROR <> 0  
          Begin   
            Rollback Transaction SP_TTPROC_INTE_I91
            Return  
          End  

          Fetch  CU_TTPROC_INTE_I91_1 Into @CNNU_PROC, @CSCO_SIST, @CSNO_RESP
       End

       Close CU_TTPROC_INTE_I91_1
       Deallocate CU_TTPROC_INTE_I91_1

       EXEC SP_TTPROC_INTE_I01  @ISCO_EMPR,'1',@INNU_PROC_UNIF, @ISNO_RESP,@IDFE_INIC_0001,@IDFE_FINA_0001,'P'

       If @@ERROR <> 0  
       Begin   
          Rollback Transaction SP_TTPROC_INTE_I91
          Return  
       End

    End

commit Tran SP_TTPROC_INTE_I91
Return   
/*--------------------------------Fin-----------------------------------------*/
-----------------------------------------------------------
-- Type: Stored Procedure
-- Name: SP_TTPROC_INTE_U01
-----------------------------------------------------------


GO
